home *** CD-ROM | disk | FTP | other *** search
/ Chip: Hang es video / CHIP_ZENESZERKESZTO_2005.ISO / audio_3 / visual / robotfunk / setup.exe / {app} / main.dxr / ui_159.ls < prev    next >
Encoding:
Text File  |  2003-11-19  |  752 b   |  25 lines
  1. global preloadlist, select, fpslist, curscript
  2.  
  3. on mouseUp me
  4.   if select > 0 then
  5.     curscript = "loadclip"
  6.     fileName = baGetFilename("load", "c:", "untitled.clp", "Flowmotion Clips|*.clp", 0, "Open new clip", 0, 400, 300)
  7.     if fileName <> EMPTY then
  8.       fileLink = new(xtra("vList"), fileName)
  9.       pre = read(fileLink)
  10.       if listp(pre) then
  11.         if pre[pre.count - 1].ilk = #image then
  12.           member(select, "thumbnails").image = pre[pre.count - 1]
  13.         end if
  14.         if pre[pre.count].ilk = #float then
  15.           fpslist[select] = pre[pre.count]
  16.         end if
  17.         pre.deleteAt(pre.count)
  18.         pre.deleteAt(pre.count)
  19.         pre.deleteAt(pre.count)
  20.       end if
  21.       preloadlist[select] = pre
  22.     end if
  23.   end if
  24. end
  25.